CD ROM Paradise Collection 4/CD ROM Paradise Collection 4 1995 Nov.iso/program/swaga_c.zip/CURSOR.SWG/0022_cursor hiding.pas

Pascal/Delphi Source File | 1994-05-25 | 450b | 32 lines

var crstyp: word;

procedure cursoff;

{ Turns the cursor off.  Stores its format for later redisplaying. }

begin
  asm
    mov ah, 03h
    mov bh, 00h
    int 10h
    mov crstyp, cx
    mov ah, 01h
    mov cx, 65535
    int 10h
    end;
  end;

procedure curson;

{ Turns the cursor back on, using the cursor display previously stored. }

begin
  asm
    mov ah, 01h
    mov cx, crstyp
    int 10h
    end;
  end;